Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

ClrText
"CREE ET PROGRAMME PAR SIMON EYRAUD. SIMSOFT(A)HOTTMAIL. COM"
1r:2D~O:3N:0S~U:5M:6I~Y:2A~Q:8C:9P~R:-10E~F
AxesOff
LabelOff
{CREER-ET-PROGRAMMER--PAR-SIMON-EYRAUD-SUR-UNE-IDEE-ORIGINAL-DE-NICOLAS-SAINTE-ROSE--SIMSOFT-EST-UNE------MARQUE(C}
9U
GridOff
CoordOff
Deg
55A
Prog "DIVER"
0U
[[0,0,0,0,0,0,0,0,0,0][r,1,Q,1,1,1,1,1,1,1][10,0,0,0,0,0,0,0,0,0][50,50,400,r,5,2,2,2,2,0]]Mat G
1N
6
If S>0:Then S=1Mat HMat G
S=2Mat IMat G
Mat G[1,10]N
0S
IfEnd
Lbl 9
Prog "EDITEUR"
Lbl 1
1
Int (Ran#xMat G[2,3])V
Prog "VERIF 1"
RclPict 1
Text B,A,""
1=UGoto 9
Lbl 2
GetkeyZ
0
Z=0Goto 2
0U
Z=27Goto A
Z=38Goto B
Z=28Goto C
Z=37Goto D
Z=48Prog "MENU 2"
If Z=31:Then 1K
Prog "VERIF 1"
0K
IfEnd
Goto 2
Lbl A
If L<11:Then If Mat F[L+1,C]1:Then Text B,A," "
A+10A
L+1L
IfEnd
IfEnd
Goto 1
Lbl B
If L>1:Then If Mat F[L-1,C]1:Then Text B,A," "
A-10A
L-1L
IfEnd
IfEnd
Goto 1
Lbl C
If C<6:Then If Mat F[L,C]=3 And Mat F[L,C+1]1 Or Mat F[L,C]=51:Then Text B,A," "
C+1C
B-10B
IfEnd
IfEnd
Goto 1
Lbl D
If C>1:Then If Mat F[L,C]=3 And Mat F[L,C-1]1 Or Mat F[L,C-1]=3 Or Mat F[L,-1+C]=51:Then Text B,A," "
C-1C
B+10B
IfEnd
IfEnd
Goto 1